home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / bbs / server / octps074 / script / pd_fanfi.scr < prev    next >
Encoding:
Text File  |  1996-10-12  |  7.9 KB  |  358 lines
  1. #menulib
  2. SubMenu FAN
  3. Entry FAN.APP[1]APP
  4. Entry FAN.COMM[2]COMM
  5. Entry FAN.FALC[3]FALC
  6. Entry FAN.FOLO[4]FOLO
  7. Entry FAN.GAME[5]GAME
  8. Entry FAN.MISC[6]MISC
  9. Entry FAN.SRC[7]SRC
  10. Entry FAN.TEXT[8]TEXT
  11. Entry FAN.TT[9]TT
  12. Entry FAN.UTIL[0]UTIL
  13.  
  14. Submenu FAN.APP
  15. Entry [1]DEMO
  16. Entry [2]DESK
  17. Entry [3]EDIT
  18. Entry [4]FONTS
  19. Entry [5]GEMINI
  20. Entry [6]GRAPH
  21. Entry [7]MISC
  22. Entry [8]TEX
  23.  
  24. Submenu FAN.COMM
  25. Entry [1]BBS
  26. Entry [2]FIDO
  27. Entry [3]GAMES
  28. Entry [4]HAM
  29. Entry [5]MISC
  30. Entry [6]QBBS
  31. Entry [7]QWK
  32. Entry [8]TERMINAL
  33. Entry [9]UUCP
  34. Entry [0]ZYXEL
  35. Entry [A]RATSOFT
  36.  
  37. Submenu FAN.FALC
  38. Entry [1]APP
  39. Entry [2]DEMO
  40. Entry [3]GAMES
  41. Entry [4]UTIL
  42.  
  43. Submenu FAN.FOLO
  44. Entry [1]MISC
  45.  
  46. Submenu FAN.GAME
  47. Entry [1]ACTION
  48. Entry [2]ADVENTURES
  49. Entry [3]MISC
  50. Entry [4]STRAT
  51.  
  52. Submenu FAN.MISC
  53. Entry [1]BBSLIST
  54. Entry [2]FANLIST
  55. Entry [3]DTP
  56. Entry [4]LINUX
  57. Entry [5]MINT
  58. Entry [6]MTOS
  59. Entry [7]MULTITASKERS
  60.  
  61. Submenu FAN.SRC
  62. Entry [1]A
  63. Entry [2]BIN
  64. Entry [3]C
  65. Entry [4]MISC
  66.  
  67. Submenu FAN.TEXT
  68. Entry [1]AEO
  69. Entry [2]COMM
  70. Entry [3]COMP
  71. Entry [4]CUD
  72. Entry [5]HARDWARE
  73. Entry [6]MAG
  74. Entry [7]STR
  75. Entry [8]STGUIDE
  76.  
  77. Submenu FAN.TT
  78. Entry [1]MISC
  79.  
  80. Submenu FAN.UTIL
  81. Entry [1]ACC
  82. Entry [2]DISK
  83. Entry [3]DESK
  84. Entry [4]GDOS
  85. Entry [5]GRAPH
  86. Entry [6]HDUTIL
  87. Entry [7]MISC
  88. Entry [8]MULTI
  89. Entry [9]PACKER
  90. Entry [0]PATCH
  91. Entry [A]PRINTER
  92. Entry [B]PROG
  93. Entry [C]SCRSAVER
  94. Entry [D]SOUND
  95. Entry [E]SYSTEM
  96. Entry [F]UNIX
  97.  
  98. #endlib
  99. /* -------------------------------------------------------------------
  100.  * FANFILES
  101.  */
  102. :FB_os_atari_fanfiles
  103. DrawMenu FAN        Gosub draw_ascii_msg           
  104. DoMenu FAN
  105.   SelectChoice
  106.     Case 1   Gosub FB_fan_app            Break
  107.     Case 2     Gosub FB_fan_comm            Break
  108.     Case 3   Gosub FB_fan_falc            Break
  109.     Case 4   Gosub FB_fan_folo            Break
  110.     Case 5   Gosub FB_fan_game            Break
  111.     Case 6   Gosub FB_fan_misc            Break
  112.     Case 7   Gosub FB_fan_src            Break
  113.     Case 8   Gosub FB_fan_text            Break
  114.     Case 9   Gosub FB_fan_tt            Break
  115.     Case 0   Gosub FB_fan_util            Break    
  116.   EndSelect
  117. EnddoChoice MenuBarKeys
  118.  
  119. /* Remove the submenu */
  120. IfChoice CursLeft
  121.     RemoveMenu FAN
  122.     ClrChoice               
  123. Endif
  124. Return
  125.  
  126. :FB_fan_app
  127. DrawMenu FAN.APP        Gosub draw_ascii_msg           
  128. DoMenu FAN.APP
  129.   SelectChoice
  130.     Case 1    SetFilearea FAN.APP.DEMO
  131.     Case 2  SetFilearea FAN.APP.DESK
  132.     Case 3  SetFilearea FAN.APP.EDIT
  133.     Case 4  SetFilearea FAN.APP.FONTS
  134.     Case 5  SetFilearea FAN.APP.GEMINI
  135.     Case 6  SetFilearea FAN.APP.GRAPH
  136.     Case 7  SetFilearea FAN.APP.MISC
  137.     Case 8  SetFilearea FAN.APP.TEX    
  138.     Common  Filelisting
  139.             Gosub draw_bbsinfo
  140.             DrawMenu File                 
  141.   EndSelect
  142. EnddoChoice MenuBarKeys
  143.  
  144. /* Remove the submenu */
  145. IfChoice CursLeft
  146.     RemoveMenu FAN.APP
  147.     ClrChoice               
  148. Endif
  149. Return
  150.  
  151. :FB_fan_comm
  152. DrawMenu FAN.COMM        Gosub draw_ascii_msg           
  153. DoMenu FAN.COMM
  154.   SelectChoice
  155.     Case 1   SetFilearea FAN.COMM.BBS
  156.     Case 2   SetFilearea FAN.COMM.FIDO
  157.     Case 3   SetFilearea FAN.COMM.GAMES
  158.     Case 4   SetFilearea FAN.COMM.HAM
  159.     Case 5   SetFilearea FAN.COMM.MISC
  160.     Case 6   SetFilearea FAN.COMM.QBBS
  161.     Case 7   SetFilearea FAN.COMM.QWK
  162.     Case 8   SetFilearea FAN.COMM.TERMINAL
  163.     Case 9   SetFilearea FAN.COMM.UUCP
  164.     Case 0   SetFilearea FAN.COMM.ZYXEL
  165.     Case A   SetFilearea FAN.COMM.RATSOFT    
  166.     Common   Filelisting
  167.              Gosub draw_bbsinfo
  168.              DrawMenu File                 
  169.   EndSelect
  170. EnddoChoice MenuBarKeys
  171.  
  172. /* Remove the submenu */
  173. IfChoice CursLeft
  174.     RemoveMenu FAN.COMM
  175. Endif
  176. Return
  177.  
  178. :FB_fan_falc
  179. DrawMenu FAN.FALC        Gosub draw_ascii_msg           
  180. DoMenu FAN.FALC
  181.   SelectChoice
  182.     Case 1   SetFilearea FAN.FALC.APP
  183.     Case 2   SetFilearea FAN.FALC.DEMO
  184.     Case 3   SetFilearea FAN.FALC.GAMES
  185.     Case 4   SetFilearea FAN.FALC.UTIL
  186.     Common   Filelisting
  187.              Gosub draw_bbsinfo
  188.              DrawMenu File                 
  189.   EndSelect
  190. EnddoChoice MenuBarKeys
  191.  
  192. /* Remove the submenu */
  193. IfChoice CursLeft
  194.     RemoveMenu FAN.FALC
  195.     ClrChoice               
  196. Endif
  197. Return
  198.  
  199. :FB_fan_folo
  200. DrawMenu FAN.FOLO        Gosub draw_ascii_msg           
  201. DoMenu FAN.FOLO
  202.   SelectChoice
  203.     Case 1   SetFilearea FAN.FOLO.MISC
  204.     Common   Filelisting
  205.              Gosub draw_bbsinfo
  206.              DrawMenu File                 
  207.   EndSelect
  208. EnddoChoice MenuBarKeys
  209.  
  210. /* Remove the submenu */
  211. IfChoice CursLeft
  212.     RemoveMenu FAN.FOLO
  213.     ClrChoice               
  214. Endif
  215. Return
  216.  
  217. :FB_fan_game
  218. DrawMenu FAN.GAME        Gosub draw_ascii_msg           
  219. DoMenu FAN.GAME
  220.   SelectChoice
  221.     Case 1   SetFilearea FAN.GAME.ACTION
  222.     Case 2   SetFilearea FAN.GAME.ADVENTURES
  223.     Case 3   SetFilearea FAN.GAME.MISC
  224.     Case 4   SetFilearea FAN.GAME.STRAT
  225.     Common   Filelisting
  226.              Gosub draw_bbsinfo
  227.              DrawMenu File                 
  228.   EndSelect
  229. EnddoChoice MenuBarKeys
  230.  
  231. /* Remove the submenu */
  232. IfChoice CursLeft
  233.     RemoveMenu FAN.GAME
  234.     ClrChoice               
  235. Endif
  236. Return
  237.  
  238. :FB_fan_misc
  239. DrawMenu FAN.MISC        Gosub draw_ascii_msg           
  240. DoMenu FAN.MISC
  241.   SelectChoice
  242.     Case 1   SetFilearea FAN.MISC.BBSLIST
  243.     Case 2   SetFilearea FAN.MISC.FANLIST
  244.     Case 3   SetFilearea FAN.MISC.DTP
  245.     Case 4   SetFilearea FAN.MISC.LINUX
  246.     Case 5   SetFilearea FAN.MISC.MINT
  247.     Case 6   SetFilearea FAN.MISC.MTOS
  248.     Case 7   SetFilearea FAN.MISC.MULTITASKERS
  249.     Common   Filelisting
  250.              Gosub draw_bbsinfo
  251.              DrawMenu File                 
  252.   EndSelect
  253. EnddoChoice MenuBarKeys
  254.  
  255. /* Remove the submenu */
  256. IfChoice CursLeft
  257.     RemoveMenu FAN.MISC
  258.     ClrChoice               
  259. Endif
  260. Return
  261.  
  262. :FB_fan_src
  263. DrawMenu FAN.SRC        Gosub draw_ascii_msg           
  264. DoMenu FAN.SRC
  265.   SelectChoice
  266.     Case 1   SetFilearea FAN.SRC.A
  267.     Case 2   SetFilearea FAN.SRC.BIN
  268.     Case 3   SetFilearea FAN.SRC.C
  269.     Case 4   SetFilearea FAN.SRC.MISC
  270.     Common   Filelisting
  271.              Gosub draw_bbsinfo
  272.              DrawMenu File                 
  273.   EndSelect
  274. EnddoChoice MenuBarKeys
  275.  
  276. /* Remove the submenu */
  277. IfChoice CursLeft
  278.     RemoveMenu FAN.SRC
  279.     ClrChoice               
  280. Endif
  281. Return
  282.  
  283. :FB_fan_text
  284. DrawMenu FAN.TEXT        Gosub draw_ascii_msg           
  285. DoMenu FAN.TEXT
  286.   SelectChoice
  287.     Case 1   SetFilearea FAN.TEXT.AEO
  288.     Case 2   SetFilearea FAN.TEXT.COMM
  289.     Case 3   SetFilearea FAN.TEXT.COMP
  290.     Case 4   SetFilearea FAN.TEXT.CUD
  291.     Case 5   SetFilearea FAN.TEXT.HARDWARE
  292.     Case 6   SetFilearea FAN.TEXT.MAG
  293.     Case 7   SetFilearea FAN.TEXT.STR
  294.     Case 8   SetFilearea FAN.TEXT.STGUIDE
  295.     Common   Filelisting
  296.              Gosub draw_bbsinfo
  297.              DrawMenu File                 
  298.   EndSelect
  299. EnddoChoice MenuBarKeys
  300.  
  301. /* Remove the submenu */
  302. IfChoice CursLeft
  303.     RemoveMenu FAN.TEXT
  304.     ClrChoice               
  305. Endif
  306. Return
  307.  
  308. :FB_fan_tt
  309. DrawMenu FAN.TT        Gosub draw_ascii_msg           
  310. DoMenu FAN.TT
  311.   SelectChoice
  312.     Case 1   SetFilearea FAN.TT.MISC    
  313.     Common   Filelisting
  314.              Gosub draw_bbsinfo
  315.              DrawMenu File                 
  316.   EndSelect
  317. EnddoChoice MenuBarKeys
  318.  
  319. /* Remove the submenu */
  320. IfChoice CursLeft
  321.     RemoveMenu FAN.TT
  322.     ClrChoice               
  323. Endif
  324. Return
  325.  
  326. :FB_fan_util
  327. DrawMenu FAN.UTIL        Gosub draw_ascii_msg           
  328. DoMenu FAN.UTIL
  329.   SelectChoice
  330.     Case 1     SetFilearea FAN.UTIL.ACC
  331.     Case 2   SetFilearea FAN.UTIL.DISK
  332.     Case 3   SetFilearea FAN.UTIL.DESK
  333.     Case 4   SetFilearea FAN.UTIL.GDOS
  334.     Case 5   SetFilearea FAN.UTIL.GRAPH
  335.     Case 6   SetFilearea FAN.UTIL.HDUTIL
  336.     Case 7   SetFilearea FAN.UTIL.MISC
  337.     Case 8   SetFilearea FAN.UTIL.MULTI
  338.     Case 9   SetFilearea FAN.UTIL.PACKER
  339.     Case 0   SetFilearea FAN.UTIL.PATCH    
  340.     Case A   SetFilearea FAN.UTIL.PRINTER
  341.     Case B   SetFilearea FAN.UTIL.PROG
  342.     Case C   SetFilearea FAN.UTIL.SCRSAVER
  343.     Case D   SetFilearea FAN.UTIL.SOUND
  344.     Case E   SetFilearea FAN.UTIL.SYSTEM
  345.     Case F   SetFilearea FAN.UTIL.UNIX    
  346.     Common   Filelisting
  347.              Gosub draw_bbsinfo
  348.              DrawMenu File                 
  349.   EndSelect
  350. EnddoChoice MenuBarKeys
  351.  
  352. /* Remove the submenu */
  353. IfChoice CursLeft
  354.     RemoveMenu FAN.UTIL
  355.     ClrChoice               
  356. Endif
  357. Return
  358.